Extensions to Basic John Richard Coffey 


Introduction 

The Z80 microprocessor is the brain 
of your Sinclair computer. By itself, 
however, it is not very smart. It has no 
capacity to understand commands like 
PRINT and LET. When you use these 
commands, you are not directly telling 
the Z80 what to do. What the com¬ 
mands do is give instructions to the 
interpreter. The interpreter is itself a 
computer program and is located in 
memory locations 0 to 8191. It is written 
in a language the Z80 can understand 
called “machine language” or “machine 
code.” This language consists of num¬ 
bers between 0 and 255. A table of these 
numbers and their mnemonics can be 
found in the Basic manual. A mnemonic 
is a label assigned to each machine code 
that more or less describes what it does. 

We can write our own machine code 
programs, but it is not an easy process. 
The main advantage to writing them is 
that they execute very fast. They also do 
not take up much memory and some¬ 
times are more flexible than Basic. The 
three Basic commands that deal with 
machine code are PEEK, POKE, and 
USR. PEEK allows you to examine a 
memory location and POKE allows you 
to change it. The USR routine tells the 
Z80 to start executing machine code at a 
particular location. Before you can use 
the POKE command to put numbers 
into memory you must first reserve an 
area for them. The Basic manual gives a 
detailed discussion of how to do this. 

Presented below in Figure 1 are four 
machine code routines which imitate 
features that are standard on more 
expensive computers and that will ex¬ 
tend your 8K ROM by adding new com¬ 
mands. 


John Richard Coffey, PO Box 448, Scottsburg, IN 
47170. 


Figure 1. Summary of new routines. 


The Routines 

COMMAND 

10 RAND USR IV 

DESCRIPTION 

Convert every character on screen to its 
inverse. 

10 PRINT USR FM 

Print how many free bytes are in memory. 

10 GOTO Z 

Create an inverse program listing. 

10 REM 10.3, SIN A, 

500 REM ABE,IKE 

These are two pseudo-DAT A statements. 
They can be placed anywhere in your 
program. Each entry can be numeric or 
string and is followed by a comma. 

10 RAND USR RS 

Perform the RESTORE command. This 
must be used before any data is read. It can 
also be used to read data more than once. 

10 LET A$="" 

20 RAND USR RD 

30 LET A=VAL A$ 

READ the next data entry. Omit line 30 if 
you are reading a string. 


Use Listing 1 to enter the machine 
code listed in Figures 2 through 5. Ver¬ 
ify your articles with both the addresses 
and the checksums printed by the pro¬ 
gram. If you make a mistake, simply 
press to enter to erase the last entry. IK 
users will have to use CONT when 
screen overflow causes the program to 
stop. After you type the last number, the 
program should stop. You should then 
delete all the lines of the program except 
the first by typing in the line number 
and ENTER. 

With the one line still in memory, 
type and RUN Listing 2. It will save 
itself to tape, so prepare your recorder in 
advance. After the SAVE, press EN¬ 
TER. The screen will flicker for a mo¬ 
ment and Listing 2 will be gone. The 
machine code, however, will have been 
relocated to the top of whatever memory 
size you have. 


.Listing 1. Machine Language Loader.. 


1 REM *********************** 
******************************** 
******************************** 
******************************** 
**************************** 

10 LET R=URL “ 16514-" 

15 LET B = 0 
20 SCROLL 
30 PRINT R.; 

4.0 INPUT R* 

50 IF LEN R* THEN GOTO URL "10 


0 ” 


60 LET fl=R-SGN PI 
70 IF R <URL " 1SS14- “ THEN GOTO 

10 

60 LET B=B-PEEK R 
90 GOTO 20 
100 POKE R.. URL R* 

110 LET B=B+PEEK R 

120 PRINT TRB 10.;R*.;TRB 20.; B 

130 LET R=R*SGN FI 

14.0 IF R< = 16661 THEN GOTO 20 


Listing 3 demonstrates the use of the 
various commands. It also declares the 
variables RS, RD, IV, FM, and Z. Note 
that Z is read from a REM statement. 
Start your recorder before running List¬ 
ing 3, because it will also SAVE itself 
to tape. Afterwards you may want to de¬ 
lete all the lines except the last two, and 
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Write your own USR routines and give your 8K ROM 
Basic the commands of the expensive machines. 


SAVE result. If you have not used NEW 
or CLEAR, then the variables will go to 
tape also. 

The procedure for LOADING the 
new commands is simple: LOAD List¬ 
ing 2. Press ENTER. LOAD Listing 
3 or its shortened version described 
above. Caution: This short version will 
only work if you are using the same 
memory configuration you were using 
before the SAVE. It is a good idea to 
hold onto all of Listing 3 in case you 
need it. 

Practical Uses 

If you have a long print out and little 
memory, you will probably get an error 
“4” due to screen overflow. This can be 
prevented with a line such as the 
following: 

50 IF USR FM < 100 THEN CLS 

This will let you avoid having to type 
“CONT” to get your program going 
again. It might be a little annoying, how¬ 
ever, if the screen clears without your 
having a chance to read it. So, perhaps 


the following two lines would be better: 

50 IF USR FM < 100 THEN PAUSE 
40000 

60 IF USR FM < 100 THEN CLS 

This stops the program until you have 
had a chance to read the screen. Pressing 
any key will get it going again and will 
also clear the screen. Which version you 
use depends upon your application. 

You can use the instant inverse rou¬ 
tine to create some interesting visual ef- 


fair. The first two lines create a col¬ 
lapsed display file and should be used 
only if you are using an expansion mem¬ 
ory. Listing 5 shows how to create a full 
display (2K version). Listing 6 is a IK 
version of the same thing. 

On the television set that I use, inverse 
characters are much easier to read than 
normal ones. This is why I have in¬ 
cluded a “GOTO Z” feature. For me it 
is the only way I can read my programs. 
Not everyone will have this problem, but 
I am sure there are a few who do. 


_ Listing 2. _ 


. Listing 3._ 


10 SflOE "£" 

£© LET fi=U«L "PEEK 16388+256*P 
2EK 16389" 

3© INPUT 

4-0 POKE 16515,129 
50 LET R=R-120 
60 LET B =R -f 3 
70 LET C =URL "16550" 

Q0 GOSU6 URL “130" 

90 LET B=R+29 
100 LET C=URL “16566" 

11© GOSUB 130 

120 PRINT USR 16634. 

130 LET E=URL “INT (B/256)" 

14.0 LET D = B-E*256 
150 POKE C,D 
160 POKE C +SGN PI.% E 
170 RETURN 


1 3RUE “3“ 

10 LET RS=URL "PEEK 26333*236 
PEEK 16389" 

SO LET RD=RS + 4-£ 

30 LET FH=RS+79 
4-0 LET IV=RS + 94. 

50 REM COMMANDS . tUSR > FM XV 
R-5 RD , RND GOTO Z,9GS3, 

60 PRINT USR FM 
7© RRMD USR RS 
75 FOR L=i TO 3 
30 LET 

90 RRND USR RD 
100 IF L<3 THEN PRINT R$ 

105 NEXT L 

110 LET Z=URL R* 

9998 LIST 

9999 RRND USR IU 


fects. Listing 4 is a good attention 
catcher and would be useful in a shop 
window or in an exhibit at a computer 


If you have to do any kind of record 
keeping, then the restore and read 
routines should be helpful. You can use 





Software Only 
High Resolution Graphics 

ZX81/TS1000 8K rom; 16K ram 


THE SW-HI-RES PACKAGE GIVES YOU CONTROL 
OVER YOUR SCREEN AS NEVER BEFORE !!!!:: 


-Now you can have HI-RES graphics on 
your TV WITHOUT ANY HARDWARE CHANGES. 

-Create your own character/symbol set 
(Lower Case, bombs, invaders, etc...) 

-Access to all 174 x 255 pixels. 

-Easy to use; access is similar to BASIC 
PLOT and PRINT. 

-Includes 10 users friendly utilities: 
PLOT, UNPL0T, PRINT, PRINTC, DRAW, CLS, 
SCR0L-UP,-DOWN,-LEFT,-RIGHT. 

-In addition to the SW-HI-RES package 
you will get the BASIC program used to 
generate the above TV picture. 


TO ORDER SEND CHECK OR MONEY ORDER TO: 



N. Elmaleh (SW-HI-RES) 

5100 Highbridge Street 53D 
Fayetteville, N.Y. 13066 


TECHNI-ST0CK SOFTWARE SYSTEM 
HIGH PERFORMANCE SOFTWARE 

for yourZX81 /TS1000 

6 reasons why TECHNI-ST0CK SOFTWARE SYSTEM out 
performs all other Technical Stock Analysis Programs. 

1) Detailed price-volume charts on Logarithmic Grid 

2) Sophisticated Statistical Analysis wKh Stock and Market 
comparisons 

3) Technical evaluations based on risk, return, moving aver¬ 
ages and price momentum indicators 

4) Handsome binder with detailed instruction guide and 
evaluation manual 

5) Personalized Stock Data worksheets for your favorite 6 
stocks and a market average 

6) Unique system for preserving analysis evaluation in your 
Techni-Stock binder 

•for use with 16K or more 

TO ORDER YOUR OWN TECHNI-STOCK SOFTWARE 
SYSTEM just: 

1. Fill in your name and address 

2. Fill in the names of your favorite 6 stocks 

3. Clip this coupon and mail to us 

* Sorry no refund. However defective cassettes will be 
replaced. 


GENTLEMEN, PLEASE RUSH ME YOUR TECHNI-STOCK 
SOFTWARE SYSTEM for only $24 95 plus $3.00 shipping 
and handling TO: 

Name . 

Street . 

City.Zip 

Indiana Residents Add 5% Sales Tax 

Stock #1 . 

Stock #2 . 

Stock #3 . 

Stock #4 . 

Stock #5 . 

Stock *6 . 

ENCLOSED IS A □ CHECK OR JUST CHARGE MY: 
□ VISA □ MASTERCARD 

Acct. No. 

Exp. Date. 

Signature . 

MAIL THIS COUPON TO: 

TOCO TECHNOLOGY 

P.O.BOX 98 

_SANTA CLAUS, INDIANA 47579_ 


EASY EYE FILTER 

“SEE” 

“THE DIFFERENCE” 
Unique Amber TV/Monitor Screen 
Filter Yields Maximum Contrast/ 
Comfort Superior to B/W-Green 
EZ to Trim with Fasteners 
10”x12” Kit/Doc $14.95PP 

DECK CALIBRATOR 

A Lab Quality Tape of Precise 
Frequency/Pulses Check and 
Calibrate Capstan Speed 
to 0.1 percent 
Align Head Azimuth 
Load/Save Problems Are Being 
Caused by OEM’s of Tape Decks 
Factory Errors to 6 percent 
Ever Buy a ‘‘No Load Tape”? 
Chances Are Their Speed and 
Azimuth Errors Added To Yours 
!! Fix Your’s !! 

Lab Tape DOC $9.95 P.PD. 

KOTE JACK 

Prevent Crashes Due To 
Fungus and Oxidation 
Field Proven for 20 years 
A Must for Computer Users 
1/2 oz. Kit $6.95 PP 

ARTISAN ELECTRONICS 
Box 6631 

Portsmouth, Va. 23703 
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the REM statements to store important 
telephone numbers, dates, appointments, 
birthdays, etc. They could also hold in¬ 
ventories, screen coordinates for plot¬ 


ting, machine code, or words like 
“CAT” and “DOG” for a computer ver¬ 
sion of “Hangman.” 

Listing 7 is an example of a computer 


Figure 2. Restore and READ String Routines. 


Assembly Listing 

Address 

Machine 

Code 

Checksum 

RESTORE 

LD HL,16634 

16514 

33 

250 

64 

347 

FIND 

LD A,CODE M REM" 

16517 

62 

234 


643 


LD BC,65536 

16519 

1 

255 

255 

1154 


CPIR 

16522 

237 

177 


1568 


LD BC,5 

16524 

1 

5 

0 

1574 


AND A 

16527 

167 



1741 


SBC HL,BC 

16528 

237 

66 


2044 


LD A,118 

16530 

62 

118 


2224 


CP (HL) 

16532 

190 



2414 


JR Z,BELOW 

16533 

40 

5 


2459 


ADD HL,BC 

16535 

9 



2468 

STASH 

LD (16507),HL 

16536 

34 

123 

64 

2689 


RET 

16539 

201 



2890 

BELOW 

ADD HL,BC 

16540 

9 



2899 


JR FIND 

16541 

24 

230 


3153 

READ 







CHARACTER 

LD HL,(16507) 

16543 

42 

123 

64 

3382 


LD A,118 

16546 

62 

118 


3562 


CP (HL) 

16548 

190 



3752 


CALL Z,FIND 

16549 

204 

33 

64 

4053 


LD A,(HL) 

16552 

126 



4179 


INC HL 

16553 

35 



4214 


JR STASH 

16554 

24 

236 


4474 

READ 







STRING 

LD HL,(E-LINE) 

16556 

42 

20 

64 

4600 


DEC HL 

16559 

43 



4643 


PUSH HL 

16560 

229 



4872 


DEC HL 

16561 

43 



4915 


DEC HL 

16562 

43 



4958 


EX (SP),HL 

16563 

227 



5185 

LOOP 

PUSH HL 

16564 

229 



5414 


CALL READ 







CHARACTER 

16565 

205 

159 

64 

5842 


POP HL 

16568 

225 



6067 


LD B,CODE"," 

16569 

6 

26 


6099 


CP B 

16571 

184 



6283 

COMA DONE 

JR Z,DONE 

16572 

40 

13 


6336 


LD (HL),A 

16574 

119 



6455 


INC HL 

16575 

35 



6490 

INC LEN* 

EX (SP),HL 

16576 

227 



6717 


INC (HL) 

16577 

52 



6769 


JR NZ,NO CARRY 

16578 

32 

3 


6804 


INC HL 

16580 

35 



6839 


INC (HL) 

16581 

52 



6891 


DEC HL 

16582 

43 



6934 

NO CARRY 

EX (SP),HL 

16583 

227 



7161 

DO MORE 

AND A 

16584 

167 



7328 


JR NC,LOOP 

16585 

48 

233 


7609 

DONE 

EX (SP),HL 

16587 

227 



7836 


POP HL 

16588 

225 



8061 


NOP 

16589 

0 



8061 


JP ROM 

16590 

195 

157 

20 

8433 


telephone directory that runs in IK. The 
other ideas mentioned above I will leave 
as exercises for interested programmers. 
Feel free to substitute other phone num¬ 
bers in line 10. This same program can 
be used to store other kinds of data 
where one item is directly related to an¬ 
other. An English to Spanish translator 
would be an example. 

Listing 8 will graph any function you 
give it. First, you must input the func¬ 
tion in terms of X. For example, if you 
wanted to graph (f(X) = 4X 2 + 3X+2) 
then you would input 4*X*X+3*X+2. 
Then you have to input the lower and 
upper limits on X. If you were plotting a 
sine curve, for example, you would prob¬ 
ably want to use limits of zero and two 
pi. The nice thing about this program is 
that the vertical limits are calculated 
automatically. This makes function plot¬ 
ting quite a bit easier. 

Stored on REM statements are some 
functions you can select instead of your 
own. Each function is followed by its 


_ Listing 4._ 


1 SfiUE “LISTING &" 

2 LPRINT "LISTING 4".,... ."USE 
FIRST TUO LINES ONLY UltH fcXPRN5 
ION MEMORY" ... .. "GRAPHICS KEYS IN 

LINE 30 •. 5374TY5T55S©5E4U64aS 1YT 
58 " 

5 LLIST 1© 

4 LPRINT " SLOW GOTO 0" 

5 STOP 

10 POKE 1 &S80..68 
20 CLS 

30 PRINT RT URL "©"..URL 

-- "10".URL "S" 

URL " ll" ,» URL 

40 FOR laNfft M TO CODE "4" 

50 UNPLOT Z+Z., Z 

55 UNPLOT Z+Z+SGN PI.. CODE "F" - 

60 NEXT Z 
63 RRND USR IU 
70 GOTO CODE "Z” 



_ Listing 5.. 


1 SRUE “LISTING 5“ 

S LPRINT "LISTING 5“ 

3 LLIST 10 

4 LPRINT “ GOTO 0“ 

5 STOP 

10 POKE 16330 ^SS 
20 CLS 
30 SLOW 

40 RRND USR IU 
50 FOR R=1 TO 30 
6© NEXT R 
70 GOTO 40 


_ Listing 6.. 


1 SRUE "LISTING S" 

3 LPRINT "LISTING 

3 LLIST 10 

4 LPRINT " SLOU ", .." GOTO 

5 STOP 

10 FOR Z=NOT PI TO CODE "t % 
20 PRINT TRB CODE "3" 

30 NEXT Z 
40 RRND USR IU 
50 GOTO CODE ”R" 


Figure 3. FREE MEMORY Routine. 


Assembly Listing 

Address 

Machine 

Code 

Checksum 

MEM LD HL, (STKEND) 

16593 

42 

28 

64 

8567 

LD B, H 

16596 

68 



8635 

LD C, L 

16597 

77 



8712 

LD HL,0 

16598 

%!>%!> 

0 

0 

8745 

ADD HL,SP 

16601 

57 



8802 

CP A 

16602 

191 



8993 

SBC HL,BC 

16603 

237 

66 


9296 

LD B, H 

16605 

68 



9364 

LD C, L 

16606 

77 



9441 

RET 

16607 

201 



9642 


.Listing 7. _ 


1 SRUE "LISTING 7" 

2 LPRINT “LISTING 7"......, 

3 LLIST 10 

4 LPRINT " GOTO 0” 

5 STOP 

10 REM JOHN , 752—5106,MIKE * 752- 
5379 , CRUMP , 895 -4809.. 

20 PRINT " INPUT NRME" 

30 INPUT R$ 

40 RRND USR RS 
50 LET B* = "” 

60 RRND USR RD 

70 IF B*=“DRTR OUT" TMEN GOTO 
URL "20" 

©0 LET C*="" 

90 RRND USR RD 
100 IF B*<>R* THEN GOTO URL 

110 PRINT C* 

120 GOTO URL "S0" 

130 REM DRTR OUT.. 
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Assembly Listing 

IV LD HL, (D-FIL.E) 
LD B, H 
LD C, L 
LD D,59 
SLA D 

LOOP L.D HL, (VARS) 

LD A, (BC) 

CP D 

JR Z,AGAIN 
ADD A,128 
LD (BC),A 
AGAIN INC BC 
CP A 

SBC HL,BC 
JR NZ,LOOP 


. Figure 4. INSTANT REVERSE Routine. _ 


Address 

16608 
16611 
16612 
16613 
16615 
16617 
16620 
16621 
16622 
16624 
16626 

16627 

16628 
16629 
16631 


Machine Code 


42 

68 

77 

22 

203 

42 

10 

186 

40 

198 

2 

3 

191 

237 

32 


12 


59 

34 

16 


■3 

128 


66 

240 


64 


64 


Checksum 

9760 
9828 
9905 
9986 
10223 
10345 
10355 
10541 
10584 
10910 
10912 
10915 
11106 
1 1409 
11681 


RET 

16633 

201 



11882 

---Figure 5. RELOCATION Rnurin*. 

Assembly Listing 

Address 

Machine 

Code 

Checksum 

RELOCATE LD HL,(RAMTOP) 

16634 

42 

4 

64 

11992 

LD BC,-120 

16637 

1 

136 

255 

12384 

ADD HL,BC 

16640 

9 



12393 

PUSH HL 

16641 

229 



12622 

PUSH HL 

16642 

229 



12851 

EXX 

16643 

217 



13068 

POP BC 

16644 

193 



13261 

EXX 

16645 

217 



13478 

LD HL,16514 

16646 

33 

130 

64 

13705 

POP DE 

16649 

209 



13914 

LD BC,120 

16650 

•1 

120 

0 

14035 

LDIR 

16653 

237 

176 


14448 

EXX 

16655 

217 



14665 

DEC BC 

16656 

11 



14676 

OUT 253,A 

16657 

211 

253 


15140 

JP NEW 

16659 

195 

203 

3 

15541 


_ Listing 8. 


1 

2 

3 

4 

5 
10 
20 
25 
30 
35 

T" 

40 

45 

T" 

50 

60 

70 

80 

85 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

(H-L) 

210 

220 


SRUE ’LISTING Q" 

t£5ir 1 0 LisTiNG - 

LPRINT ** GOTO 0“ 

STOP 

LET F=SGN PI 
GOSUB CODE “ COPY ** 

INPUT™** PRINT "FUNCTION" 
IF F THEN PRINT "LOUER LIMI 

INPUT X 

IF F THEN PRINT "UPPER LIMI 

INPUT R 
LET K=X 
FRST 

IF F THEN CLS 

LET F =NOT PI 

LET DX=(R-X)/CODE “Z" 

LET H=URL R« 

LET L=H 

FOR I=NOT PI TO CODE **Z‘* 

IF H <URL fl$ THEN LET H^URL 

IF L >URL ft$ THEN LET L=VRL 

LET X s,< +DX 
NEXT I 
LET X=K 
SLOW 

FOR I=NOT PI TO CODE "Z" 
PLOT I,URL. **43" *■ (URL R$-L)/ 

LET X=X+DX 
NEXT I 


230 GOSUB URL *’400" 

240 GOTO URL "30" 

300 RRND USR RS 

2i2 £25 g-URL "- 2 " TO URL ** 10 " 
EP 2 URL°"8“ “ NCrT PI TO URL 5T 

330 LET R$ = **** 

u!r 0 rd F B ° R R<NOT PI THEN RRND 
2P fl*= 5 TR*V NI> «>-SGN PI THEN 

in rkvv'* 

380 NEXT O 

390 REM * * * ., 5ELECT.. OPT ION , * * . Q 
PTION.FN,RRNGE, ^ INPUT , YOUR>OWN 

400 INPUT B 

420 IF NOT B THEN RETURN 
430 RRND USR RS 

«-*® FOR R=SGN PI TO URL **3*B+8" 
450 LET R$ = "“ 

460 RRND USR RD 
470 NEXT R 

>2? £2 R R= “ SGN PI TO SGN PI 
491 LET B$ 2 "" 

500 RRND USR RD 

510 IF R <NOT PI THEN LET R$=B$ 

Ho NEXT°R R ™ EN LET X=URL B * 
540 LET R=URL B* 

550 GOTO URL "60** 

> I 4 .SIN X+5IN C2*X> 4 -SI 

(X-INT X-.5 

? ,0,3, 1/X^ .1,2,EXP —(XfX) ^ —22. 


lower and upper limit. If you only have 
IK RAM then you will not be able to 
use this feature. If this is the case, then 
enter the program without the USR 
routines in memory and omit lines 10, 
20, 25, 35, 45, 80, 230, 300, and every 
line above 300. 

You cannot plot more than one func¬ 
tion on the screen at the same time, but 
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none of the prompt messages will appear 
after the first graph. Prompt messages 
also do not appear on the IK version de¬ 
scribed above. 

I hope that these routines and pro¬ 
grams are of use to you. If you have 
other ideas on how to extend the 
capabilities of this little computer in this 
way, drop a line to SYNC H 



The RPNZL™ Programming System gives 
you the key to transcend the barriers of 
speed and control! 


•15-20 times faster than Sinclair BASIC 
•Save data, screen and program files with Verify 
and Directory at 3000 bps 

•Programmable keys •Full printer support 
•Easy, structured, FORTH-like syntax compiles to 
compact pseudocode modules 
•Complete System includes Language tape with 
resident Monitor, Editor/Compiler, Linker, and full 
documentation 

•Run applications below or create more 

RPNZL System TS1000(16K)/1500 $29.95 

RPNZL Applications (require system above) 

CHARTMAK (Pie, bar, line) 9.95 

TURTLART (like LOGO) 9.95 

SCHEDULE (appointments & reminders) 7.95 
MOUNTAIN RAIDER (fast & furious) 5.95 

Add $.50/tape p&h. CA residents add sales tax. 
FREE catalog on request. 

THE GOLDEN STAIR 
141A Dore Street, 

San Francisco, CA 94103 
(415) 552-1415 
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